﻿Imports Microsoft.VisualStudio.TestTools.UnitTesting
Imports Microsoft.VisualBasic
Imports CustomTshirtFinal

<TestClass()> _
Public Class LoginNegocioTest

    <TestMethod()> _
    Public Sub logearTest()
        Dim negocio As New UsuarioNegocio()

        Try
            Dim modelo = negocio.logear("men", "men")

            'Assert.AreEqual(3, modelo.idPedido)

        Catch ex As DAOExcepcion
            Assert.Fail(ex.ToString())
        End Try

    End Sub

End Class
